home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Tools.Dxr / Internal_211_Non-productive section.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  2.0 KB  |  81 lines
  1. global gMasterData, gCritterWord
  2.  
  3. on goNonPro
  4.   go(label("nonpro"))
  5.   setUserArea(gMasterData, #nonpro1)
  6. end
  7.  
  8. on exitNonPro
  9.   global checkMarks2
  10.   if getaProp(checkMarks2, #nonpro) = 0 then
  11.     setaProp(checkMarks2, #nonpro, 1)
  12.   end if
  13. end
  14.  
  15. on goCritters
  16.   stopSound2()
  17.   go("critters")
  18.   goNarrator(gMasterData, "33")
  19.   setUserArea(gMasterData, #critters1)
  20.   setFingerCursor(#on, [4, 5, 6, 7, 8, 9, 10, 11, 12])
  21. end
  22.  
  23. on exitCritters
  24.   setFingerCursor(#off, [4, 5, 6, 7, 8, 9, 10, 11, 12])
  25. end
  26.  
  27. on goYourChair
  28.   go("chair")
  29.   goNarrator(gMasterData, "43")
  30.   setUserArea(gMasterData, #critters2)
  31.   setFingerCursor(#on, [13, 14, 15, 16, 17, 18, 19, 20, 21])
  32.   set gCritterWord to "None"
  33. end
  34.  
  35. on exitChair
  36.   setFingerCursor(#off, [13, 14, 15, 16, 17, 18, 19, 20, 21])
  37.   setPuppetState([13, 21], #c, 0)
  38. end
  39.  
  40. on goNotePaper
  41.   go(label("nonpro2"))
  42.   goNarrator(gMasterData, "43B")
  43.   setUserArea(gMasterData, #nonpro2)
  44. end
  45.  
  46. on critterFlix
  47.   global gCritter
  48.   set critterMovie to 47
  49.   puppetSprite(critterMovie, 1)
  50.   case gCritter of
  51.     "lion":
  52.       set the loc of sprite critterMovie to point(92, 238)
  53.     "ostrich":
  54.       set the loc of sprite critterMovie to point(302, 170)
  55.     "goose":
  56.       set the loc of sprite critterMovie to point(386, 164)
  57.     "sloth":
  58.       set the loc of sprite critterMovie to point(464, 206)
  59.     "croc":
  60.       set the loc of sprite critterMovie to point(557, 215)
  61.     "humbird":
  62.       set the loc of sprite critterMovie to point(551, 323)
  63.     "chiwawa":
  64.       set the loc of sprite critterMovie to point(495, 395)
  65.     "chameleo":
  66.       set the loc of sprite critterMovie to point(123, 389)
  67.     "hamster":
  68.       set the loc of sprite critterMovie to point(123, 329)
  69.   end case
  70. end
  71.  
  72. on critterWord vSprite
  73.   if not (the puppet of sprite vSprite) then
  74.     set gCritterWord to the name of member the member of sprite vSprite
  75.     setPuppetState([13, 21], #c, 0)
  76.     puppetSprite(vSprite, 1)
  77.     set the member of sprite vSprite to member (gCritterWord && "on")
  78.     puppetSound(gCritterWord && "snd")
  79.   end if
  80. end
  81.